((I*Csc[theta]*
     ((((-I)*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)/4)*Cos[phi]*Sin[2*theta])*
            ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*(
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
                ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]^2*(
                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r + 
             (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                  Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                 (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2) + 
             (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
                 ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                    Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]*
                    (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[
                          2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                     ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                       Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                          Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1.*^-6*Sin[theta]^2*(0.000027*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                        (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta] + 
                       ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                         (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
                        2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
                    2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                    Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                    (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                        Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                         (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
                        2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)^2*(-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
                    2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) + (1.25*^-13*Sin[phi]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]*
              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
              Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))*
              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
              Sin[theta]*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + r*
                ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                     Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                 (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                     Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[theta]*
                   (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
                   Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                          Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                          Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                          Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                        Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/
                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                         (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                          Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]*
              ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                    Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
                        3*Sin[6*theta])))))/(-2 + 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
            ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))*(
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
              (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(4 - 
                1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*(
                -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                  2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                       Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                  9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                  72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                  5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                     Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]*
                     Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 
                    3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                       Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta])) + 6.*^-6*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Sin[theta]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                     4 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                  3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*((-1.*^-6*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*(
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
             (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                        Sin[phi]*Sin[4*theta]))/4)) + 
                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                         Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-7*(1.*^-6*
                 (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                 Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                     Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
                     Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                     Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
                        3*Sin[6*theta]))))))/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))^2))))/(Sqrt[2]*r) + 
        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-13*Sin[phi]^2*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*
                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            5.*^-7*((1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) - (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                 (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r^2)*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*
                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 
            (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
                ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
                   Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                   Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                   Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                      Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2 + 
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                        (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
                       2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[
                          2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                   Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1.*^-6*Sin[theta]^2*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^2)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                        (-2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2) - 4*Cos[phi]*Sin[theta]))/
                       2 + 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Cos[phi]*(1 + 2*Cos[
                          2*theta])) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (Cos[phi]^2*(Cos[theta] + 3*Cos[3*theta]) + 
                          4*Cos[theta]*Sin[phi]^2)*Sin[theta])) + 2.5*^-7*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/
             r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
           ((-1.*^-6*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Sin[phi]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
             Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*Sin[theta]*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + 
              r*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r^2)*Cos[theta]*(1.*^-12*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
                          theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2)) + 5.*^-7*Sin[phi]*
             ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                   Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
                  2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
           ((5.*^-7*Sin[phi]*Sin[theta]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*
              (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                   3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                  (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                 5.*^-13*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                    Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(4*Cos[theta]*
                    Sin[phi]^2*Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 
                 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (2.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                     Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta])) + 1.*^-6*(1.875/(E^(4.*r^2)*
                     r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r^2)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta])) + 6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*
                     Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])))*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 2.1599999999999998*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (2.5*^-13*Sin[phi]*Sin[theta]*(-1.8*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
            (2.5*^-13*Sin[phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-7*(1.*^-6*
                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                    Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                     6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
                    Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                    Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                     Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
             (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2)))/(Sqrt[2]*r))/2 + 
      ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)/4)*Cos[phi]*Sin[2*theta])*
            ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*(
                -((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
                ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*(
                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r^2 - 
             (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^
                         2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - 
             (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r^2 + 
             1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
              Cos[theta]*Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 
             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r*
                ((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                   (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                   (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
                   Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Sin[2*theta]^2 + 1.875*^-13*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
                   Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                        Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/
                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                          Sin[theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
                          Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                          Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
                     4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-3*(-0.9375/(E^(4.*r^2)*r^5) - 
                          (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                          (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
                        ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 3.75*^-13*(1.3125/
                       (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 5.*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                      Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + 
             (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                    Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
                    Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))) + Sin[phi]*
                 ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                    Cos[2*theta]*Csc[theta]^3*Sin[phi]*(0.000027*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                      (1 + 3*Cos[2*phi])*Cos[theta] + 18*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Cos[phi]*
                        (-4*Cos[theta]*Cot[theta] + Csc[theta]) + 1.*^-6*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
                     ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                         (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                       Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                          (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
                        Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
                         Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
                      Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[
                       2*theta]))/(-Csc[theta]^3 + 1.*^-12*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                     5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                       2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
                      Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                       Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
                     2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                         2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
                        Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                     6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                       1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                          (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
                        Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                         Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
                    Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                      Cos[theta] + 18*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Cos[phi]*(-4*Cos[theta]*
                          Cot[theta] + Csc[theta]) + 1.*^-6*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
                     ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                         (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                       Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                         Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                          (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
                        Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
                         Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]))*Sin[2*theta]*(1.*^-12*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                   (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
                      Csc[theta]^3 + 5.3999999999999996*^-17*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                      Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
                      Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                       Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
                     2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                         2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
                        Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                     6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                       1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                          (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                          (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
                        Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                         Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                    Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                  (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
                    Csc[theta]^2*Sin[phi]*Sin[2*theta]*(2.*^-6*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Cos[2*theta]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                       3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                         1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Cos[theta]*Sin[theta]))*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                  (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                     r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
                    Cos[2*theta]*Csc[theta]*Sin[phi]*(1.*^-6*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                  (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[phi]*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r*
                    (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                     Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - 
                  (2.9999999999999994*^-18*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) + 1.25*^-13*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                         2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                          Sin[2*phi]*Sin[4*theta])))^2)))/r^2) - 
           1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                 (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
             (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            Cos[theta]*Sin[phi]*Sin[theta]*((-5.*^-7*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*((-5.*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]*
              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
              ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
              Cos[theta]*Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)*
                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*Sin[
                theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*(
                ((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Cos[theta]*Sin[theta]^2 + 1.*^-6*r*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                          r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Sin[theta] + 
                     Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                     Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r + 
             (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
              ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
                  1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Sin[theta]^2*(3.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
              ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                    Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))) + (2.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                     2)/2)*Sin[2*theta])/(r*(-2 + 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
                        3*Sin[6*theta])))))/(r*(-2 + 5.*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
               (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
            ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*Sin[
                phi]*Sin[theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) + (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]^
                2*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                  Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
              (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))*(-1.8*^-11*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2)))))/(r^2*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(1 - 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*(
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*
                  Sin[2*theta])/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^
                         2 + Cos[theta]^2*Sin[phi]^2) + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))*((2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                        Sin[phi]*Sin[4*theta]))/4)) + 
                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                         Cos[phi]^2*Sin[4*theta]))))/4)))/
              (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]*(
                -8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(-1.*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*
                       Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                    2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[
                          2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*
                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
                  r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                     Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                         2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
                   ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
                     Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                         Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                         Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) + 
                r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                   ((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)*
                         r^6) + (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^5 - (87*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                      (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)]))/4 + 
                    3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                      (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                    9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)]))*Sin[theta] + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (8*Cos[phi]*Cos[theta]*Cos[2*theta] + 4.*^-6*r*
                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^
                        2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]*
                       Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
                      0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
                         Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r*
                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                       Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
                       (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]*
                       Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                       (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                         Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[theta]^2*(2*Cos[phi]^2*Cos[2*theta] + 
                          Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*(Cos[theta] + 
                          Cos[3*theta]) + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^
                          2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
                          theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                          (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 
                          8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[
                          2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
                  4*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                     ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^
                        2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^
                      2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                         (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - 
                         (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r))/2 + 3*r*(5.625/
                         (E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta] + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]^2 - 
                        2*Cos[theta]*Sin[theta]*(1 + 2.5*^-7*r*(-6.5625/
                          (E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                          (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                          (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                          Sin[2*theta]))) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^
                        2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + 
                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 
                          8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                          (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*
                          r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^
                          2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 
                          8.*r) - (128.*r)/E^(4.*r^2) + 0.0625*r*(-5120./
                          E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - (40.*
                          (0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*
                          r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (1536.*
                          (0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                          (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                          E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                          1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)*r^6) + 
                          (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                          2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                         (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                          Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))^2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]*
                 (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*
                 (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                     Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
                     Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                     Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
                        3*Sin[6*theta]))))))/(r^2*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))^2))))/(Sqrt[2]*r) - 
        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           ((5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Cos[theta]*Sin[phi]^2*Sin[theta]*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*
              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r^2 - 
            (2.5*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))*
              ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))^2/(4*r^2) - 
            (2.5*^-13*Sin[phi]^2*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
            1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
             Sin[theta]*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 
            ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - 1.*^-6*r*(
                (-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) - (3*(-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[phi]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-1/4*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2) + 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta]) + ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
                          theta]))/4 + 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
                         Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
                       ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
                 (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2))/(2*r^2) + 
            (5.*^-7*(Cos[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*Csc[theta]*
                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))) + Sin[phi]*
                ((-1.9999999999999998*^-18*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4))*Cos[phi]*Cos[2*theta]*
                   Csc[theta]^3*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 
                    18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 
                      1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                       (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
                    ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                        (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
                       Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
                        Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]))*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[2*theta]*Cot[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 9.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta]))/(-Csc[theta]^3 + 1.*^-12*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2*Csc[theta]^3 + 
                    5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^
                      2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
                     Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                       Cos[2*theta]^2*Cot[theta]*Csc[theta] + Cos[theta]*
                       (-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                        2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
                       Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                    6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                      1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
                       Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                        Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*
                   Csc[theta]^5*Sin[phi]*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*Cos[theta] + 
                    18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (Cos[phi]*(-4*Cos[theta]*Cot[theta] + Csc[theta]) + 
                      1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                       (Cos[phi]^2*(-2 + 3*Cos[theta]^2) + Sin[phi]^2)) + 
                    ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Csc[theta]*(4*Cos[phi]*(1 + 2*Cos[2*theta]) - 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                        (Cos[phi]^2*(4*Cos[theta] - 3*Cos[3*theta] + 
                          3*Cos[5*theta]) + (Cos[theta] + 3*Cos[3*theta])*
                          Sin[phi]^2)))/2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta])/2 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       Cos[theta]*(Cos[phi]^2*(-2 + 3*Cos[theta]^2) + 
                        Sin[phi]^2) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[2*theta]*Cot[theta]*
                       Csc[theta]*(Cos[phi]^2*(-2 + 3*Cos[2*theta]) + 
                        Sin[phi]^2) - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]))*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
                     Csc[theta]^3 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cot[theta]^2*Csc[theta]*Sin[phi]^2 + 
                    4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                      Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                        2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
                       Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                    6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                       Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                      1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]*
                       Cot[theta]*Csc[theta]*(Cos[phi]^2*Cos[2*theta] + 
                        Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                          Sin[phi]^2))/2))^2 + (2.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                   Cos[2*theta]*Csc[theta]*Sin[phi]*(-((-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Cos[2*theta]) + 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[phi]*
                   Sin[2*theta]*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[2*theta]^2 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                      3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                        1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta]))*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4))*Cos[2*theta]*Csc[theta]*Sin[phi]*
                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (3.*^-12*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-6*r*
                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (2.9999999999999994*^-18*
                   r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2)))/r^2) + 
          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
           Cos[phi]*Cos[2*theta]*((-5.*^-7*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Cos[theta]*Sin[phi]*Sin[theta]*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
             ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
             Sin[phi]*Sin[theta]^2*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 
            (2.5*^-7*Sin[phi]*Sin[theta]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (2.5*^-7*Sin[phi]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
             ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/4 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[theta]^2*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
                 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + ((1.875/(E^(4.*r^2)*r^5) + 
                 (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
             ((3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                   Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
                  2)*Sin[2*theta])/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + (9.999999999999999*^-19*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
               (r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2) - (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/(r*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
              (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
           ((1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]*Sin[theta]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 
            (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
              Cos[theta]*Sin[phi]*Sin[theta]^2*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                 Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
               1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 3.6*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + (2.5*^-7*Sin[phi]*Sin[theta]*
              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*(-1.8*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2)))))/(r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))))/
             (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
            (2.5*^-7*Sin[phi]*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-13*Sin[phi]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*(2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]^2*Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 
               0.000036*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (6.25*^-8*Sin[phi]*Sin[theta]*
              (-8*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                   2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                   7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[2*theta]) + r*Sin[theta]*
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[theta]*(1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                    Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                        2)))) + 1.*^-12*r*(7.2*^-11*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
                  ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (8*Cos[phi]*Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                   3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta])) - 0.000012*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (2*r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))))*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*(1.875/(E^(4.*r^2)*
                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^
                        2*Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                        Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])))) + r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*((-3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)]))/4 - (r*(39.375/(E^(4.*r^2)*r^6) + 
                      (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*(2 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)]))/4 + 3*r*(5.625/(E^(4.*r^2)*r^6) + 
                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                    (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                     Cos[2*(phi + theta)]) + 9*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)]))*Sin[theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(8*Cos[phi]*Cos[theta]*
                      Cos[2*theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]^
                       2*Sin[theta] - 4.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*phi]*
                      Cos[theta]^2*Sin[theta] + 4.*^-6*r*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*(phi - theta)]*Cos[theta]^2*Sin[theta] - 
                     0.000048*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
                        Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 2.*^-6*r*
                      (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                      Cos[2*(phi + theta)]*Sin[2*theta] + 1.*^-6*r*
                      (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Csc[theta]*
                      Sin[2*theta]*Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta])) + 4*((1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]^2*(2*Cos[phi]^2*
                          Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                       2*(Cos[phi]*(Cos[theta] + Cos[3*theta]) + 1.*^-6*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^
                          2*(Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[
                          theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                          (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]^2*(Cos[phi]^2*Cos[
                          2*theta] + Sin[phi]^2)*Sin[theta])) + 7.5*^-7*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))) + 4*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                    ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                     2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^3 - 
                          (630*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^6 - (4*(16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]^2*Sin[theta]^
                       2) + 0.000018*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)^2*Cos[phi]*Cos[theta]*Sin[theta]^
                     2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
                     (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/2 + 
                     3*r*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(-1 + 1.*^-6*r*
                      (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]^2 - 2*Cos[theta]*Sin[theta]*(1 + 
                         2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[theta]*Sin[theta]^
                       2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + r*((39.375/(E^(4.*r^2)*r^6) + 
                          (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^4 + (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                          (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*
                          r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                          (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + (0. - 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + (640.*
                          (0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - (56.*
                          (0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                          0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/4 + 3*(5.625/(E^(4.*r^2)*
                          r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                          2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))) + (1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]*(Cos[theta] + Cos[3*theta]) + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                          Sin[4*theta])))))))/(r^2*(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2) + (5.*^-7*((r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + 5.*^-7*(18*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)))*Sin[phi]*Sin[2*theta]*
                (-4*Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-2 + 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*
                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                    Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                     6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
                    Sin[theta]^3 + 4*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                    Sin[theta]^4 - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                     Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
             (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) - 
   ((((-I)*Csc[theta]*(-1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*
           Sin[theta]*((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 
            (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 5.*^-7*
             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*
             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))*
             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2*
             ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 
            5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + 
              r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                   1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2 - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
                 (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) - ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                        Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
                      4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2)) + 
            5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2*
           (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-13*Sin[phi]*(3.6*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(8 - 2.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]*
              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
             ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                 (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                    (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)*
                     r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                 ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 
            (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
                 Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
                   8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))/r) - 
          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*(3.6*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
            (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (1.*^-6*(-2.*^-12*
                (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                 72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                   3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 4*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - 
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 4.3199999999999997*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(7.200000000000001*^-11*
                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 
                 5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                    Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-12*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
                    Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                    (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^6)*Sin[phi]^2*Sin[theta]^2*
                    (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
                   ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
                       2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                      Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                        (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                       Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                    (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                      Cos[theta]*Sin[theta]^3 + 3*((15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                      Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-2*((-30*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                       (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*
                      Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                      (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                       3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/
             (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 + (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))) + (2.5*^-7*(-2.*^-6*
                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
                (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                    Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                       Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2))))/(Sqrt[2]*r) + 
       (1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
          ((-1.*^-6*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
           (1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*
            ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))*
            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 2.5*^-13*Sin[phi]^2*
            ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
            ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[theta]^2*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*(
                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[theta]^2*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 
           5.*^-7*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             r*((-2.5*^-7*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                  (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + ((-6.5625/(E^(4.*r^2)*
                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                       (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                     Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (1 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
                     4.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                    1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2)) + 
           5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2)) - 
         1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
          Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]*
             (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                -6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + (2.5*^-13*Sin[phi]*
             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r + 
           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           (2.5*^-13*Sin[phi]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r + 
           (2.5*^-7*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 5.*^-7*Sin[phi]*
            ((2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                 (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (2.5*^-7*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                  (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                   E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
               Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*(1.875/(E^(4.*r^2)*
                    r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                     (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*(
                3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((-30*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 + (15*(-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
                       r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])))))/(-2 + 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2) + 
           (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
                Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))/r) + 
         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
          ((5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
                     Sin[4*theta])))))/(r*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - (2.5*^-13*Sin[phi]^2*
             Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
              1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*(
                -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                    Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                   2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                 Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
           (2.5*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-6.5625/(E^(4.*r^2)*r^5) - 
                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/
                 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                72*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                     Sin[phi]^2*Sin[4*theta]))/4 + 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (7.200000000000001*^-11*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((105*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/4) - 
                5.*^-7*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
                   Sin[theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)*(4*Sin[phi]^2*Sin[theta]^
                       2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 12*((15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*Sin[phi]^2*
                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.5*^-7*((-21*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
                  ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
                      2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*
                     Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                Cos[phi]*(-4*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Cos[2*theta]^2 + (((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                      Sin[2*theta])/4) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 
                    3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                     Sin[4*theta]) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-2*((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*
                     Cos[2*theta]^2 + 1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                     (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[4*theta]))))))/
            (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))^2 + (6.25*^-14*Csc[theta]*
             Sin[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                      Sin[phi]*Sin[4*theta]))/4)) + 
              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[
                2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                   Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
                        3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^
                        2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                 2)))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2)))/(Sqrt[2]*r))/2 + 
     ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
             Sin[2*theta])*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + 1.5*^-12*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]*
             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 
            (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*(-((Csc[theta]*(-2 + 
                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
            (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))*
              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 
            (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r^2 + 
            (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r^2 - 
            (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                   (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                      ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                        Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                          r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                     (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                          r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                      3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                         (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                    (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                     (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                 (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta])*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                      (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
                    (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r))/4)*
                   Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6*
                     (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
                    r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                      (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                        (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                        (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                        (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
                  (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                   (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                   (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                    0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                         (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                         (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                          2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                         Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                          Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                         (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                          Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                          Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                    3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                        Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                        Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/
                         (E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*Cos[phi]^3*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])) + 
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                        (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                         (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                          Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + 
            (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4*
                 (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                   Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                      Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + 
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                          6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*
                       Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + 
                        Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 
                  9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                       Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2*
                       Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*
                       Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4*
                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                       4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^
                       2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                       2*Cot[theta]*Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
                       (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2*
                   Csc[theta]^3 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cot[theta]^2*Csc[theta]*
                   Sin[phi]^2 + 4.999999999999999*^-19*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                    Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*
                     Cot[theta] + Csc[theta]*Sin[phi]^2) + 9.*^-12*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                     Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                  6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                       Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                         2))/2))^2 + (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]^2*Sin[2*theta]*
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
                 Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]*
                 Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/
                   2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                   Sin[theta] - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r*
                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r*
                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
                   8 - 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))/r^2) - 
          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
           Cos[theta]*Sin[phi]*Sin[theta]*
           (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*
                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))) + 
            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))) + 
            (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - 2.5*^-13*r*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Cos[phi]*Cos[2*theta]*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
             ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
             Sin[theta]*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + (2.5*^-13*Sin[phi]^2*
              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                     (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                    (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                      (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                    Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
                        r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                   1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                     Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])))))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 
            5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(r*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
              (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + (2.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(r*
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))) - 
          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))^2/(r^2*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
            (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))) + (1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                   Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
                  7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[2*theta]^2) + 1.*^-6*(9*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                      (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 
                    0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                     (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta])))/(2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
            (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 
            (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
              Cos[theta]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + (1.25*^-13*Csc[theta]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])*
                Sin[phi]^2 - ((-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*
              (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r^2*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*
                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
               (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
            (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r^2*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*Sin[phi]*
              ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                 Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r^2*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))) + (5.*^-7*(-1.*^-6*
                (18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
                 3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)))*Cos[phi]*Cos[2*theta]*
                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*
                (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                    Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-0.000216*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                    Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))) + (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                       Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2))))/(Sqrt[2]*r) - 
       (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
          Sin[theta]^2*((2.5*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))*((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + 1.5*^-12*
            ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
              r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 
           (2.5*^-7*Sin[phi]*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*(-((Csc[theta]*(-2 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
           (2.5*^-13*Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))*
             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
             (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*Sin[phi]*
            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 
           (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r^2 + 
           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r^2 + 
           (2.5*^-7*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r^2 - 
           (5.*^-7*Sin[phi]*((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + r*((1.*^-6*Csc[theta]*
                  (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Cos[2*theta] + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                        (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
                (Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/4 + 
                   (r*(39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                      (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
                  Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]*
                  (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2 + 
                   r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                       (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Cos[2*theta]*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2))/
                 (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                  (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                  (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(-18*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                      Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta]) - ((-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                         2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                        (2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
                          theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                        (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                         Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                       Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*(1.875/(E^(4.*r^2)*
                         r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-4*(1.875/(E^(4.*r^2)*r^5) + 
                       (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                          (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*Sin[
                          theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                          Sin[phi]^2*Sin[4*theta]))/2 + 3*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta])))))/(-2 + 5.*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2)))/r^2 + 
           (5.*^-7*Sin[phi]*((2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^4*
                (0.000027*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Csc[theta]^2*Sin[phi]^2 + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Csc[theta]^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                     Csc[theta] + 2*Cot[theta]*Sin[phi]^2))/8 + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Csc[theta]^4*(Cos[phi]^2*(Cos[2*theta] + 3*Cos[
                         6*theta]) - 2*(Cos[2*theta] - 3*Cos[4*theta])*
                      Sin[phi]^2) - Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + 
                       Cos[3*theta])*Csc[theta] + Cot[theta]*Sin[phi]^2)) + 
                 9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Csc[theta]^2*(2*Cos[phi]^2*(Cos[theta] + Cos[3*theta])*
                      Csc[theta] + Cot[theta]*Sin[phi]^2) - 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3*Cos[phi]^2*
                      Cos[2*theta]*Cot[theta]^2 + (-1 + 3*Cot[theta]^2)*
                      Sin[phi]^2)) - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Csc[theta]^4*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + 2*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Csc[theta]^2*(Cos[phi]^2*
                       (Cos[theta] + Cos[3*theta])*Csc[theta] + 2*Cot[theta]*
                       Sin[phi]^2) - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (3*Cos[phi]^2*Cos[2*theta]*Cot[theta]^2 + 
                      (-1 + 3*Cot[theta]^2)*Sin[phi]^2)))/4)*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
               (-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                   2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                   Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                     2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(4*Cos[phi]^2*Cos[theta]*
                    Cot[theta] + Csc[theta]*Sin[phi]^2 - 2.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*(Cos[phi]^2*
                      Cos[theta]^2 + Sin[phi]^2)) + 6.*^-12*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                      Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*Cos[theta]*
                       Cot[theta] + Csc[theta]*Sin[phi]^2))/2))^2 + 
              (2.*^-6*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]^2*Sin[2*theta]*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Cot[theta]*Csc[theta]*(1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Csc[theta]*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[2*theta]*
                Csc[theta]^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2*(0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cot[theta]*
                Csc[theta]^2*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta])/
                  2 - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (2 + 3*Cos[2*theta])*Sin[theta] - 3*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                     3*Sin[3*theta])) + 4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                   3*Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*r*
                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*r*
                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                 18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(4*(1 + 2*Cos[2*theta])*
                      Sin[phi]^2*Sin[theta]^2 + 3*Cos[phi]^2*Cos[2*theta]*
                      Sin[2*theta]^2) + Cos[phi]^2*Sin[4*theta]) + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))/r^2) + 
         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
          (((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))))/(2*r*(1.*^-12*(-0.375/(E^(4.*r^2)*
                   r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))) + 
           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))) + 
           (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))*((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 2.5*^-13*r*
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
             (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*
            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 1.5*^-12*r*
            ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
              r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]*
            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 
           (2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           (2.5*^-13*Sin[phi]^2*(-((Csc[theta]*(-2 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[theta]*(1 + 0.000012*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((3*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                   (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*(
                -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(9*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                    (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                  (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^
                2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-3.75*^-7*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-18*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + ((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                   ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*(1.875/(E^(4.*r^2)*
                       r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(-2*Cos[theta]^3*
                      Sin[phi]^2*Sin[theta] + Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))/4 + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2)/4 - 12*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-4*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])))))/(-2 + 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2) + 
           5.*^-7*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4 + r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
             (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
             (1.5*^-6*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (6.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta]*(9.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Cos[2*theta]*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Sin[phi]^2*Sin[2*theta]*(Csc[theta]^2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - (3.9999999999999995*^-18*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4))*Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta]*(
                -0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/8 - 
                18*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[theta]*Sin[phi]^2*Sin[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                 8))/(r*(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))) + 
         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
          (-1/4*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))^2/
             (r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
           (1.*^-6*r*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                Cos[theta]*Sin[phi]^2*Sin[theta]*(3*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) - 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2) - 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + Cos[phi]*
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(2.*^-6*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4) - (3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))) - 1.*^-6*r*(1.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              ((-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                  Sin[phi]^2 - ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
                 7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(6*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                (9*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/2 + r*(3*(5.625/(E^(4.*r^2)*r^6) + 
                     (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   (-39.375/(E^(4.*r^2)*r^6) - (297*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (87*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (19*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (630*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (2.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*Cot[theta] + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 - 
                   0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + ((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
               6.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) - 6.*^-6*(-0.9375/(E^(4.*r^2)*
                   r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + ((3*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r))/4 + (r*(39.375/(E^(4.*r^2)*r^6) + 
                    (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta])))/
            (2*r^2*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) - 
           (1.25*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*Cos[phi]*Cos[2*theta]*
             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta])))/
            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
           (3.*^-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*
             Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]))))/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) + 
           (1.25*^-13*Csc[theta]*(4*Cos[phi]*Cos[2*theta] + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))*(0.000072*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
                     Sin[4*theta])))))/(r^2*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (5.*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*Cos[phi]*Sin[2*theta] + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
                2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
              3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(r*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
              (3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))))/
            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
           (2.5*^-13*Sin[phi]^2*Sin[theta]*(-1.8*^-11*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
              1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*(
                -1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                  Sin[phi]^2)*Sin[theta] - 2*(Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                    Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                   2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                 Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                  (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2))))*
             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r^2*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
             Sin[phi]*((2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*Csc[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((0.375/(E^(4.*r^2)*r^4) + (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                 r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                      Sin[phi]*Sin[4*theta]))/4)) + 
              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))))/4)))/(r^2*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))) + (5.*^-7*(-1.*^-6*(18*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                  r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)))*Cos[phi]*
               Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[2*theta]^2)*(r*(1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(
                r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-1 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                    (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))*(-0.000216*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                   Sin[4*theta]) - 2*(((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
                        3*Cos[4*theta])*Sin[phi]^2) - 4*(Cos[theta]*Sin[phi]^
                        2*Sin[theta] + Cos[phi]^2*Sin[4*theta]))) + 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                 2)))/(r^2*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2 + 
 (((-I)*Csc[theta]*
     (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
           ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*
              (-1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                   1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                      Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                  Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                  Sin[theta]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                  (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]*(2 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 
                 3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                  Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                    Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                  Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                    Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2*
                    Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))*
                (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 2.1599999999999998*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (5.*^-13*Sin[phi]*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]*
              (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + 1.*^-6*r*
           (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
           Cos[phi]*Cos[2*theta]*((-5.*^-13*r*Sin[phi]*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*
             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
             Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]*
             Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2)) - 
          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*((-5.*^-13*Sin[phi]^2*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*
             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2*
             Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 
            5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)^2*Cos[theta]*Sin[phi]^2*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - 
        (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4) + (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
            ((-1.*^-12*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))))/((4 - 1.*^-12*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (1.*^-6*Sin[phi]*Sin[theta]*(
                -1.*^-12*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                  2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 3*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                    1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                       Sin[4*theta])) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (2*Cos[phi]*Cos[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta])))*(-2*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                    Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                     2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                  9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                  72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                  4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) + (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)^2*Cos[phi]*(Cos[theta] + 
                    Cos[3*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[phi]*(Cos[theta] + Cos[3*theta]) + 0.000018*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)^2*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (1 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[theta]*Sin[2*theta]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3)*Sin[theta]*(-1 + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                    Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
                     9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                  3.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)^2*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[theta]*(Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 3.*^-12*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                  3.*^-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) - 3.*^-12*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[theta]*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) + 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)^2*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                  2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                     Sin[4*theta]) - 2.5*^-13*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*(2*Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) - 2.5*^-13*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(2*Sin[phi]^2*
                     Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))*
                 (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 2.1599999999999998*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 7.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.5*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))))/(-4 + 1.*^-12*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 7.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2 - (5.*^-13*Sin[phi]*Sin[theta]*(
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) - (1.25*^-13*Sin[phi]*Sin[theta]*(
                4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((-5.*^-13*r*Sin[phi]*Sin[theta]*(
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) - 2.5*^-13*r*Sin[phi]*Sin[theta]*
              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]*
              Sin[theta]*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*Sin[phi]*
              Sin[theta]*((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                 Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(-3.75*^-7*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2)) + r^2*Sin[theta]^2*
            (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)/4)*Cos[phi]*Sin[2*theta])*
            ((-5.*^-13*Sin[phi]^2*Sin[theta]*(
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) - 2.5*^-13*
              ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))^2 - 2.5*^-13*Sin[phi]^2*
              Sin[theta]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 
             5.*^-7*((-1.*^-6*(3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[2*theta]*
                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + 
      ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)/4)*Cos[phi]*Sin[2*theta])*
            ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]*
                  Sin[phi]^2*Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]^2*(
                ((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta] + Sin[theta]*
                    (1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                       (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[phi]*Cos[theta]*Sin[theta] + 
                     2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Cos[theta]*Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r + 
             (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r - 
             (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/r + 
             (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                     (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                  (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                     (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                      (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/2) - 1.*^-6*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                    Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[2*theta]*(-1 + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                       (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4))*
                  Cos[phi]*Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2)*
                  Sin[2*theta])/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*
                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
                   0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                   3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-1/4*(((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2) + 12*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) - 
                     2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                        Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                         2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                         (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                        Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[
                          theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                       (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[phi]*Cos[theta]^3*
                         Sin[phi]^2*Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta])))/
                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
                          Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
                       (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                          (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                          (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
                 (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                    Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                   1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                     Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))^2))/r + 
             (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
                 ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*Sin[phi]*Sin[2*theta])/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                    Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cot[theta]*Sin[phi]*Sin[2*theta]*
                    (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                   (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[
                          2*theta])))) - (3.*^-6*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                     ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                        2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 5.3999999999999996*^-17*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^
                        2 + Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
                    ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                       (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/
                          E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                          r^4)*Sin[theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                         (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                         (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                        Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                          (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                        (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                      Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                      (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) + 1.25*^-13*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^
                         2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                          Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                         Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                         Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                         2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                          Sin[2*phi]*Sin[4*theta])))^2 + (1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[phi]*Cos[2*theta]*Sin[phi]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                        Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
                    2 + (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                    Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                    (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                        Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                         Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                         2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                          (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                      (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                       6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                         (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                          Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                          Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                      (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                        Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                        Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                        Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                     (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                        Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                       (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                          Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^
                    2)))/r) - 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
             (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
             (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
              r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]*Sin[theta]*
            ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                     3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                     (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                 (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*((-2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
              ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*
                         r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]*
              Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2 - 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
              ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]^2 + (3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                      (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                       (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
                  1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                   Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
              ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                    Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[theta]^2)/2))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
                    (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                         (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                        16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                      (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*(1 + 
                         2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                         6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                         2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*
                       Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + 
                      Cos[phi]^2*(-7*Sin[2*theta] + 2*Sin[4*theta] - 
                        3*Sin[6*theta])))))/(-2 + 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                      Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                         3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                    9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                        3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                    6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                         Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                       Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                       Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                        6*Sin[4*theta] - 3*Sin[6*theta])))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) - 
           1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
             (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r + (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)/2)*Sin[phi]*Sin[theta]^2*
            ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2)))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*(
                -1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                 ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                  2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                  7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]) + r*Sin[theta]*
                 ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(2*Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2)*Sin[theta] + r*Cos[phi]*
                   Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                      (Cos[phi]^2*Sin[4*theta])/2))))*(
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*(
                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[theta]*Sin[2*theta])*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))*((-1.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
             (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
                2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                   Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta])) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*(
                (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                  5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 2.1599999999999998*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                (-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                  (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                  (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                    Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                  (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                   Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                         r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                    Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                    Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
                 Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[phi]*
                 (Sin[2*theta] + Sin[4*theta]) - 0.000036*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                    Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                     (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]) + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                        Sin[phi]*Sin[4*theta]))/4)) + 
                2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                        (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/2))*Cos[2*theta]*Sin[2*phi] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                       5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                       5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                     1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                          (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                        (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                          Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + 
                         (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
                        Sin[phi]*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                         Cos[phi]^2*Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                 Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                  Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2) + 
                9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                    2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
                6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                     Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                       2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*(
                (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 - 5.3999999999999996*^-17*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))*(-3.6000000000000005*^-11*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                   Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + 
                      Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                   (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                      Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                    5.*^-7*r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2*
                       Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r*
                     ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                     (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                    2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                          r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[
                          2*theta] + Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*
                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta]) + 
                  r*Sin[theta]*(((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7*
                     (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^6)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                    r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                        (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                          (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - (2048.*
                          (0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 
                      7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 
                      3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(Sin[phi]^2*
                       Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/2) + 
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                         2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                     Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                     ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                         2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                   ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                      Sin[theta]^2)/2) + 4*r*Sin[theta]*
                   ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2 + 
                    3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                       r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
                     Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[phi]^2*Sin[theta] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                      2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] + 
                    5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[4*theta] + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) - 
                  0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
                      2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                        (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/
                          r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
                      Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
                          4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 - 2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                         Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/
              (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))^2) + (2.5*^-7*(1.*^-6*
                 (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                 Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                   (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
                  1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                        2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                    3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                   (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                        3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                     Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*(2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                      6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[phi]*
                     Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                     Sin[theta]^4 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]*(Cos[phi]^2*
                       (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                      Sin[phi]^2*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-4*(1 + 2*Cos[2*theta])*
                     Sin[2*phi]*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Sin[phi]*(-8*Cos[theta]*Sin[phi]^
                        2*Sin[theta]^3 + 2*Sin[phi]^2*Sin[4*theta] + 
                      Cos[phi]^2*(7*Sin[2*theta] - 6*Sin[4*theta] + 
                        3*Sin[6*theta]))))))/(r*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))^2))))/(Sqrt[2]*r) - 
        (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           ((2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-13*Sin[phi]^2*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]^2*
              (((3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                 Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-Cos[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-Sin[theta] + Sin[3*theta])))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta] + Sin[theta]*(1 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                        r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                     Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                        r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*
                     Sin[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (2.5*^-7*((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((1.*^-12*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (2.5*^-13*Sin[phi]^2*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (5.*^-7*((-1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                     (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                      5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                  1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (Cos[phi]*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                      (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-12*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[phi]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2)*Sin[2*theta])/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) - (5.999999999999999*^-18*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(3.75*^-7*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 - 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-1/4*(((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2) + 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) - 2.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                       Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]) + (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                         Sin[theta]))/4 + 2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                       (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))/4 + (-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(4*((6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Cos[phi]^2*Cos[2*theta]^2 + 
                      Cos[theta]^2*Sin[phi]^2) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^3*Cos[2*theta]^2*
                         Sin[2*theta] + Cos[phi]*Sin[phi]^2*Sin[4*theta]) + 
                      (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] + 2*Cos[phi]^3*Cos[2*theta]^2*Sin[
                          2*theta] + Sin[phi]*Sin[2*phi]*Sin[4*theta]))/4))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))/r + 
            (5.*^-7*(Cos[phi]*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta])))) + 1.*^-6*Sin[phi]*
                ((3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
                   Sin[2*theta])/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                    (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                      Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                   Sin[phi]*Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[2*theta]*Sin[phi]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                        (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                      Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                      Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                         r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                     (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                   Sin[phi]*Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                  (4*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                     (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                       Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
                 (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[phi]*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                    ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                       2)/2)*Sin[2*theta])/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
                   5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                     2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                    (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
                   9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2*(Cos[phi]^2*Cos[2*theta]^2 + 
                       Cos[theta]^2*Sin[phi]^2) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                       2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                        Sin[2*phi]*Sin[4*theta]))) - (3.*^-12*
                   ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                    Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^2)*Sin[2*theta]*(-(Sin[phi]*Sin[theta]^2*
                      (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                         (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                          (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                          16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                        (1 + 3*Cos[2*phi])*Sin[2*theta] + 
                       9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                        (8*Cos[phi]*(1 + 2*Cos[2*theta]) - 5.*^-7*
                          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                          (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                          6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                          6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                          2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(4*(1 + 2*Cos[2*theta])*
                       Sin[2*phi]*Sin[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                          r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                         (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                        Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                       (8*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 4*Cos[2*phi]*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          2*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Sin[phi]^2*Sin[theta]^2 + 1.0799999999999999*^-16*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                     Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(-2 + 1.*^-6*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*
                        Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                         Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^
                          2) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                         Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                          4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                        2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                         Sin[2*phi]*Sin[4*theta])))^2 + 
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*Sin[phi]*
                   (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                      9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
                 (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cot[theta]*
                   Sin[phi]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1.*^-6*(0.000027*(0.1875/(E^(4.*r^2)*r^4) + 
                         (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^3*(1 + 3*Cos[2*phi])*
                       Cos[theta]*Sin[theta]^3 + ((1.3125/(E^(4.*r^2)*r^4) + 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                        Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/
                          (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                          0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                          (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(4*(1 + 3*Cos[2*phi])*Cos[theta]*
                          Sin[theta]^3 - 3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                      9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                       (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                          3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                      6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                          Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                         Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                         Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                          6*Sin[4*theta] - 3*Sin[6*theta])))))/
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[theta]*Sin[phi]^2*(Cos[theta] - 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[2*theta]*Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                         (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                       Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                       Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                          (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                       Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                          r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*
                          (0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/
                          r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                      (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                         Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)))/
             r) + 1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
            (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
           ((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - (2.5*^-13*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 9.*^-12*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) + 2.5*^-7*Sin[phi]*Sin[theta]*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             (((-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 2.5*^-7*Sin[phi]*
             Sin[theta]*((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
             ((1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[theta]^2*
                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + r*(3*((15*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^6) + ((-105*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (48*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (13*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/4))*Cos[phi]*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[theta]^2*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2)*(2 - 2.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Sin[2*theta] - 
                 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-2 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                  Sin[2*theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 5.*^-7*Sin[phi]*
             ((3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[theta]^2 + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[theta]^4 - 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^4 + Sin[2*theta])))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-Cos[2*theta] + 2.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^3 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[2*theta] + 
                   Sin[4*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)/
                  2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (9.999999999999999*^-19*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-(Sin[phi]*Sin[theta]^2*
                   (-2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                         (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                        (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                         6*Cos[2*theta] + 3*Cos[2*(phi + theta)]) + 
                       16*Cos[phi]*Sin[theta]))/2 - 0.000054*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                     (1 + 3*Cos[2*phi])*Sin[2*theta] + 9*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)^2*(8*Cos[phi]*
                       (1 + 2*Cos[2*theta]) - 5.*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (2 - 6*Cos[2*phi] + 3*Cos[2*(phi - theta)] + 
                        6*Cos[2*theta] + 3*Cos[2*(phi + theta)])*Sin[
                        2*theta]))) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(Cos[phi]^2*
                      (6*Cos[2*theta]^2*Sin[2*theta] - 2*Sin[4*theta]) + 
                     Sin[phi]^2*Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[phi]*(8*Cos[theta]^3*Sin[phi]^
                       2*Sin[theta] + 4*Cos[2*phi]*Sin[4*theta] + Cos[phi]^2*
                      (-7*Sin[2*theta] + 2*Sin[4*theta] - 3*Sin[6*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2 - (1.*^-12*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(1.*^-6*(0.000027*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*
                    (1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[theta]^4)/2 + (3*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-8*Cos[phi]*Sin[theta]^4 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 - 
                        3*Cos[phi]^2*Sin[2*theta]^3)))/4 + 
                   9*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (-2*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (-4*(1 + 3*Cos[2*phi])*Cos[theta]*Sin[theta]^3 + 
                       3*Cos[phi]^2*Sin[2*theta]^3))) + 2.5*^-7*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (8*Cos[phi]*(1 + 2*Cos[2*theta])*Sin[theta]^2 + 
                   6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(6*Cos[2*theta]^2*
                        Sin[2*theta] - 2*Sin[4*theta]) + Sin[phi]^2*
                      Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(-7*Sin[2*theta] + 
                       6*Sin[4*theta] - 3*Sin[6*theta])))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2)) + 
          r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
           ((-5.*^-13*Sin[phi]*Sin[theta]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*(-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[theta]^2*Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2)))))/(r*(1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-13*Sin[phi]*Sin[theta]*
              (-1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                 (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[theta]^2)/2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                 2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta]) + 7.5*^-7*r*(-0.9375/(E^(4.*r^2)*
                     r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                    2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[2*theta]) + r*Sin[theta]*((-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                 r*Cos[phi]*Sin[theta]^2*((-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                      2))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(1 - 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-7*Sin[phi]*Sin[theta]*
              (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Sin[phi]^2*
                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta] - 2*Sin[theta] + 4.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Cos[theta]*Sin[theta]^2 + 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + 2*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-Cos[theta] - 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Sin[theta] + Sin[3*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*(-Sin[theta] + 
                   Sin[3*theta])))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
            (5.*^-7*Sin[phi]*Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (1.25*^-13*Sin[phi]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[theta]^2*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta] - 1.*^-6*r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (3.125*^-14*Csc[theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-7*Sin[phi]*Sin[theta]*
              ((1 - 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(-3.6000000000000005*^-11*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                  Sin[theta]*((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2) + (r*(-6.5625/(E^(4.*r^2)*r^5) - 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                  (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[phi]^2*Sin[theta]^2)/
                    2) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (-1.*^-6*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*(Cos[phi]^2*Cos[2*theta] + 
                     Sin[phi]^2)*Sin[theta] - 5.*^-7*r*((105*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*(Cos[phi]^2*
                      Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 7.5*^-7*r*
                    ((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*
                    (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                     Cos[2*(phi + theta)])*Sin[2*theta]) + 2.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  (-1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] - 
                   2*(Cos[phi]*Cos[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                         r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      (Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta]) + 
                   7.5*^-7*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[2*theta]) + r*Sin[theta]*
                  (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2 + 7.5*^-7*
                    (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta] + 
                   3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[theta]*(2.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*Sin[theta] + 
                   r*Cos[phi]*Sin[theta]^2*(((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/4 + 
                     7.5*^-7*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                      Sin[2*theta] + 3*((15*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + 2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(Sin[phi]^2*Sin[2*theta] + 
                     (Cos[phi]^2*Sin[4*theta])/2) + 
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                        2))) + 6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]*(2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2)*
                    Sin[theta] + r*Cos[phi]*Sin[theta]^2*
                    ((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (Sin[phi]^2*Sin[2*theta] + (Cos[phi]^2*Sin[4*theta])/
                        2)))) + 1.25*^-13*(7.2*^-11*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]*
                  ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (2*Cos[phi]^2*Cos[2*theta] + Sin[phi]^2) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]^2*
                     Sin[theta]^2)/2) + 4*r*Sin[theta]*
                  ((6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2 + 3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*(8*Cos[phi]*
                    Cos[2*theta] + 2.*^-6*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                   3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(1 - Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[2*theta] + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]^2*Sin[4*theta] + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta])) - 0.000012*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[theta]*(2*r*Cos[phi]*Sin[theta]^
                     2*((-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4 + 
                     3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta])) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(2*Cos[phi]*Cos[2*theta] + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[
                         4*theta]))))*(-3.75*^-7*((-3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 2.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                          3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                        Sin[phi]^2*Sin[4*theta]))/4 + 3*((-3*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))))))/
             (r*(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2) + (2.5*^-7*(1.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]*
                Sin[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-4*Cos[2*theta]*Sin[phi] + 8.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[phi]*Sin[theta]^3 + 6.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*phi]*
                  (-Sin[2*theta] + Sin[4*theta]))*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) - 5.*^-13*(4*Cos[phi]*Cos[2*theta] + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (0.000054*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[theta]*(Sin[phi] - 
                   3*Sin[3*phi])*Sin[theta]^3 - 2*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Sin[phi]*Sin[theta]^4 - 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]*Sin[theta]^2*
                  (-(Cos[phi]*(1 + 2*Cos[2*theta])) + 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[phi]^2*(Cos[theta] + 
                       3*Cos[3*theta]) + 4*Cos[theta]*Sin[phi]^2)*
                    Sin[theta]) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[theta]*(2 - 6*Cos[2*phi] + 
                     3*Cos[2*(phi - theta)] + 6*Cos[2*theta] + 
                     3*Cos[2*(phi + theta)])*Sin[phi]*Sin[theta]^3 - 
                   2*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Sin[2*phi]*Sin[theta]^4 + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]*
                    (Cos[phi]^2*(6*Cos[2*theta]^2*Sin[2*theta] - 
                       2*Sin[4*theta]) + Sin[phi]^2*Sin[4*theta])) + 
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-4*(1 + 2*Cos[2*theta])*Sin[2*phi]*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (-8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Sin[phi]^2*
                      Sin[4*theta] + Cos[phi]^2*(7*Sin[2*theta] - 
                       6*Sin[4*theta] + 3*Sin[6*theta]))))))/
             (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2)))/(Sqrt[2]*r))/2))/(Sqrt[2]*r) + 
   (((r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
          ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
                2*Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
              1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))^2 - 
           (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]))/
                 4 - (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                      theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                  Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 - 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] - 
                     Sin[phi]^2*Sin[4*theta]))/4 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 4*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 4.3199999999999997*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))*
               (7.200000000000001*^-11*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 3.6*^-11*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                   Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[phi]*Cos[2*theta]^2 - ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                     Cos[theta]*Sin[theta]^3 + 3*((3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + 
                  (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                    (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/
                   2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]^2*Sin[4*theta])) + 3.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(0.000012*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - 2.5*^-7*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)^2*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                     Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) - 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*(-2*Sin[phi]^2*Sin[theta]^
                      2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                   Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                    Sin[phi]^2*Sin[4*theta])))))/
            (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 + 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 + 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))^2 - (5.*^-13*Sin[phi]^2*
             Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                  Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                   Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 - 7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Sin[2*theta]) + 3.6*^-11*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 2.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
           (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Sin[2*theta]) + 1.8*^-11*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
              (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))) - 
         1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
          Sin[theta]^2*((-5.*^-13*Sin[phi]*(3.6*^-11*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
           2.5*^-13*Sin[phi]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
            ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                    (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                    (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                     E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                  0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
               Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + 
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                  (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (Cos[theta] + Cos[3*theta]) + 
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                      (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                 (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]^2*Cos[2*theta]*(
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                  (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2)) + 
         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
          ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 4.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
           2.5*^-13*r*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2*
            Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*
            ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                    (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                    (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                     E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                  0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                    (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                    (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                     E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                  1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
               Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                  1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   (0. - 8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                     E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                     E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                  (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]*(
                1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) + ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3) + 
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                  (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2)))/(Sqrt[2]*r) - 
       (I*Csc[theta]*(-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           ((-1.*^-12*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                 (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                     Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                   Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2))/2 + 1.*^-6*
                   ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                   (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                    2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))^2)/(8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                Sin[theta]^2 - 4.3199999999999997*^-16*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (1.*^-6*(-2.*^-12*(-2*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[phi]^2*Sin[theta]^2 - 7.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*(6 - 2*Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)])*Sin[theta]^3 - 0.000648*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - (3*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                       theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                   Sin[theta]^2*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]))/4 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]^2*Sin[2*theta]^2)/2 + 
                 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3) + 
                 72*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 - 2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/4 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                      Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + Cos[phi]*(-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]^2 - 
                   ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Sin[phi]^2*(2*((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]))) + (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 4.3199999999999997*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))*(7.200000000000001*^-11*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-6*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3)*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + (((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                     (4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                       Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                    Cos[2*theta]^2 - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r^2)*Cos[phi]*Cos[2*theta]^2 - 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                    Sin[2*theta] + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                    (2*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                          1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*
                          r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                          (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                          E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                        r^2 + (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                          E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                         0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Cos[theta]*Sin[theta]^3 + 
                     3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3)*Sin[4*theta]) + 2.*^-12*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                    (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[theta]*
                      Sin[theta]^3 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      Sin[4*theta])) - 5.*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                    Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(4*Sin[phi]^2*
                       Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/2 + 
                   1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-12*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3)*Sin[phi]^2*Sin[theta]^2 + 
                   (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                         1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                        (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                         E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                     (4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2))/
                    2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)^2*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r^2)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])) + 
                 3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(12*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                     2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(0.000012*((-3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[phi]^2*
                    Sin[theta]^3 + 12*((3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*Sin[phi]^2*
                    Sin[theta]^2*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.5*^-7*
                    ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)^2*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3) - ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (21*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                        1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       0.25*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                       (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                        E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                         (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                    (-2*Sin[phi]^2*Sin[theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                        Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[phi]*
                    (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                      Sin[4*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*((-6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 + (6*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r^2)*Cos[phi]*(4*Cos[phi]^2*Cos[2*theta]^
                       2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
             (-8 + 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2 - (5.*^-13*Sin[phi]^2*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 
            (1.25*^-13*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + r^2*Sin[theta]^2*
           (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
             Sin[2*theta])*((-5.*^-13*Sin[phi]*(3.6*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*Sin[phi]*
             ((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]*
             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*Sin[phi]*
             ((-2.5*^-7*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^5 - (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                 (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Cos[phi]*Csc[theta]*Sin[2*theta]*(1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Cos[phi]*(2.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.5*^-13*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)^2*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.9999999999999998*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2)) - 
          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
           Cos[theta]*Sin[phi]*Sin[theta]*
           ((-5.*^-13*r*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 2.5*^-13*r*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*r*Sin[phi]^2*
             Sin[theta]*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 5.*^-7*r*
             ((-2.5*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Cos[phi]*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                Cos[phi]*Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) + ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 + (21*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (9*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (2*(16./E^(4.*r^2) - 
                      1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                        (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                        (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                         E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/
                    r^2 - (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*(0. - 8.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))))/(Sqrt[2]*r))/2 + 
     ((I*Csc[theta]*(r^2*Sin[theta]^2*(1 - 1.*^-6*
             (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
             Sin[2*theta])*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Csc[theta]^2*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(2 - 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (2.5*^-7*Sin[phi]*(1.*^-12*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((-2.5*^-7*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
            (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/
                      (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*
              ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r + 
            (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   Cos[2*theta] + (1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                    3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                    6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/r - 
            (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
                 Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[phi]*
                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                 (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                    (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                  2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Sin[phi]^2*
                   Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     Sin[2*theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]*
                   Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[theta] + Cos[3*theta]) + (((-21*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                      (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                  0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                      3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                        Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                     4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                        2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                          theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
                          (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                       Sin[theta]^2*(2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                          (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4 - 
                     4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                      (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                         4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2)/4 - 
                    12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                      Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                    1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                         (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                         (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                          Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                      3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                         Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
                (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))/r + 
            (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
                 Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                   (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                      3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                   ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                          r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                   (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     Cos[theta] - 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(2 + 3*Cos[2*theta])*
                     Sin[theta] - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                       (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Sin[theta] - 3*Sin[3*theta]))))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
               (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                   Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                     Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                      3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                     Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-1.25*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[phi]^2*
                       (Cos[2*theta] + 3*Cos[6*theta]) - 2*(Cos[2*theta] - 
                        3*Cos[4*theta])*Sin[phi]^2) + Sin[phi]^2*
                     Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                        (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                        (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                        Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                       (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                        2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                          (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                         (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                          17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                          5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                          9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
                      4))/8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                   Sin[theta]^2 + 1.0799999999999999*^-16*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                   Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                   (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
                  1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                    Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                       Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                  1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                    3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                      2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                       Sin[2*phi]*Sin[4*theta])))^2))/r) - 
          1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
              0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
              (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
           Cos[theta]*Sin[phi]*Sin[theta]*
           ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4))/4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4))*Sin[phi]^2*(3.*^-6*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta]))) - 5.*^-7*
             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 
            5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) + 
            (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*
                    r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                   (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
            2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
             Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]*Cos[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))) - 
            5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[phi]^2*
                  Sin[theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                     (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                      (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                        (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                 5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (2.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                     ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2) + 
            5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                 2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
              (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]*
                  (-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + 6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*
                      Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(Csc[theta]^2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 6.25*^-14*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) - 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2)) - 
          1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
            (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)/2)*Sin[phi]*Sin[theta]^2*
           (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                    (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                     5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
                (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta]))) - 1.*^-6*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
                (1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                     ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                       (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                       (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2)) + 
                         (16.*(0. - 8.*r))/E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.125*
                          (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r) - (128.*r)/
                          E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 1.*(0. - 8.*r)*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)/2))*
                  Sin[phi]^2*Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Sin[theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                   2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2 - 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Cos[phi]*
                     Sin[2*theta])/4 - 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                    Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                  Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Cot[theta] + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                      Sin[theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(1 + 3.*^-6*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]))/2) - 6.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])) - 6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])) + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                         r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r)/r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 
                          8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                    (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                          r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*
                          r)/E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                         (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                      Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                    Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                    Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + 
            (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*(3.6*^-11*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                  Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                    Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*
                (-4.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[4*theta])) - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2 + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                     Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Sin[phi]^2*Sin[theta]^2*
                  (-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                   2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                      Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
              (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               4.3199999999999997*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.5*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               7.2*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) + (6.25*^-14*Csc[theta]*(4*Cos[phi]*
                Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
               ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                 (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                 (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                    2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                    Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 2.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*(Cos[theta] + 
                   Cos[3*theta])*Csc[theta] + 6*Cot[theta]*Sin[phi]^2 + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*Cot[theta]*
                    Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                  Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                    Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
               8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (-(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[theta]^2*Sin[phi]^2 + Cos[2*theta]*Cot[theta]^2*
                    Sin[phi]^2 - Cos[phi]^2*Cot[theta]*Sin[4*theta]) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*(-(Cos[2*theta]*
                       Cot[theta]*Sin[phi]^2) + Cos[phi]^2*Sin[4*theta])))))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 
               2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                 2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
              ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                    (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                Sin[theta]^2 - 1.0799999999999999*^-16*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (5.*^-13*Sin[phi]^2*Sin[theta]*
              ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/
                     (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta] - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2))/2 - 
               2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                  Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                (2*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(Sin[phi]^2*Sin[2*theta] + 
                   Cos[phi]^2*Sin[4*theta])) + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2*Sin[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
              (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                       r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (13*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                   Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
                     Sin[theta] - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                       (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                       (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                     Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                     Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                         (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                          (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                        (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
               ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/(r*(4 - 1.*^-12*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               2.1599999999999998*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               7.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                     4*theta])))) - (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*
                   r^4) - (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                 3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                   1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                   2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))*((1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                 Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                   Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                  (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - 
                  Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))))/
             (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
            (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                 Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
               (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
               (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 5.3999999999999996*^-17*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                   Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta]))))*(2.16*^-10*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*
                Sin[phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                  (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 3*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-8*Cot[theta]*Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 4*Cos[2*theta])*Sin[2*phi] + 2.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                   Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                       r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[
                       2*theta] + Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*
                    (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                     Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                     (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                       Sin[phi]*Sin[4*theta]))/4)) + 2*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                     (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                  Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                    (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*
                         r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2 - 2*Cos[2*phi] + 5*Cos[2*(phi - theta)] - 
                      2*Cos[2*theta] + 5*Cos[2*(phi + theta)])*Cot[theta]*
                     Sin[phi] + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*(-4*Cos[2*theta]*Sin[2*phi] + 
                      3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                        (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]) - 5.*^-7*r*
                       (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                        (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*Sin[phi]*(4*Cos[theta]*Sin[phi]^2*
                         Sin[theta] + Cos[phi]^2*Sin[4*theta]))))/4)))/
             (r*(-Csc[theta]^3 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                Cos[theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^2*
                Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                (Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                 Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + 
                 Csc[theta]*Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                  Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
               6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                    Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^
                      2))/2))) + (2.5*^-7*(-2.*^-6*
                (-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*
                Cos[2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[2*theta]*(1 - Cos[2*phi] + 
                   Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                    2*(phi + theta)]) - 8*Cos[phi]*Sin[2*theta] - 
                 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                  Sin[2*theta]^2 + 0.000024*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2)*
                (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 - 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 
                 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                  ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2*
                    Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                     (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
                    4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                       (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                       2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
                     4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                      (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                      Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/
                    4))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
               2))))/(Sqrt[2]*r) - 
       (-1.*^-6*r^2*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
           (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]*
          Sin[theta]^2*((1.25*^-13*Sin[phi]*(4*Cos[phi]*Cos[2*theta] + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Csc[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 - 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Csc[theta]^2*
                Sin[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(2 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] - 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]))/(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + (2.5*^-7*Sin[phi]*
             (1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((-2.5*^-7*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Csc[theta]*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
           (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r + 
           (2.5*^-13*Sin[phi]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           (5.*^-7*Sin[phi]*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]))))*((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r + 
           (5.*^-7*Sin[phi]*((1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Csc[theta]*Sin[phi]^2*Sin[2*theta]*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (Csc[theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (Cos[theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[3*theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]^2*
                (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 - 
                   3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                   6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r))/2)*Sin[theta]^2)*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/r - 
           (5.*^-7*Sin[phi]*((-1.*^-6*(((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Csc[theta]*
                Sin[2*theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Cos[phi]*(2.*^-6*
                  ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/4))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                   ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                     (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r)/2))*(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (Cos[theta] + Cos[3*theta]) + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                       (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]))/2 - 3*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                  (1 - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-6*Csc[theta]*(-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*
                (-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                   (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/2) + 
                 2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                   ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                  (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                     (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                    (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[2*theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/4) - 
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] + 
                     Cos[3*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]*
                     (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2 - 
                   3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Sin[theta]*(1 - 5.*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
               (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                Cos[2*theta]*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                 (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (6.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                   2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*Cos[theta]*Sin[phi]^2*Sin[theta]^
                     3 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(8*Cos[theta]*
                       Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3))/
                    4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                       2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                         theta)])*Sin[theta]^2*(1 + 6.*^-6*(0.1875/
                         (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Sin[2*theta]) - (((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 
                       2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                       Cos[2*(phi + theta)])*Sin[theta]^2*(2 + 6.*^-6*
                        (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                        Sin[2*theta]))/4 - 4.*^-6*((6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                      (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                     (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                        4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2)/4 - 
                   12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(Sin[phi]^2*Sin[theta]^2 + 
                     Cos[phi]^2*Sin[2*theta]^2) + 1.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                        (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                        (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                          (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                          E^(4.*r^2))/r)*(2*Cos[theta]^3*Sin[phi]^2*
                         Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*Sin[
                          2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                     3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                       (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
               (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))/r + 
           (5.*^-7*Sin[phi]*((-6.*^-12*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]^2*
                Cos[2*theta]^2)/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Cot[theta]*(1 + 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Sin[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Csc[theta]^2*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (5.*^-7*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                     3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*
                  ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(-1 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - 2.*^-6*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]) - 2.*^-6*(3*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/4)*Cos[phi]*Cos[2*theta]*
                  (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                   2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      (Sin[theta] - 3*Sin[3*theta])) + 9.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Sin[theta] - 3*Sin[3*theta]))))/(1.*^-12*
                  (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
              (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (3.*^-6*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Sin[2*theta]*(Csc[theta]^2 + 1.*^-6*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(-1 + 
                2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))) + (1.1999999999999998*^-17*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta]*(-0.000054*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                  Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                    Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                     3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                    Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                     2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                   Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                       (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                      4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*
                         r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                          0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                      (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                       2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                          r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                         (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                        (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                         17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                         5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                         9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                  8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                  Sin[theta]^2 + 1.0799999999999999*^-16*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                  Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                    (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                 1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                   Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                      Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
                 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                   3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*(2*Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                     2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                      Sin[2*phi]*Sin[4*theta])))^2))/r) + 
         1.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
           (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
           (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
             0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
              (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*
          ((1.25*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              ((-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-3*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))/4 + 
                 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Sin[phi]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
              Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
             3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*
                Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
              (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
             1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
              Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                 Cos[phi]^2*Sin[2*theta]^3)) + 1.*^-12*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*(-2*(Cos[phi]^2*Cos[2*theta]^2 + 
                 Cos[theta]^2*Sin[phi]^2) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*(2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                 Sin[phi]^2*Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                  Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]))) - 
           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]))))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 
           5.*^-7*((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) + 
           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((-2.5*^-7*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cos[phi]*Cos[2*theta]*(1.*^-12*
                  (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                    (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
              (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Cos[phi]*Sin[theta]^3) - 1.*^-12*
              (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
               (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)/2)*Sin[phi]^2*Sin[theta]*(1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
             (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
           2.5*^-13*Sin[phi]^2*((2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Sin[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             ((-2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                    (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                  (r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                     (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r))/2)*Sin[theta]^2)*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (4*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*(Cos[theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[3*theta] - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[3*theta]))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Cos[phi]*Cos[2*theta]*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*(1 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2)*Sin[2*theta])/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 2.5*^-13*Sin[phi]^2*
            Sin[theta]*(-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
             ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))))*
            ((-1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2)*Sin[theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/4)*Cos[phi]*Sin[theta]*(3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta])))) - 
           5.*^-7*((1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*(
                -1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*Cos[
                2*theta]*(2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]^2 + 
                (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta]*(1 - 1.*^-6*
                    (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                     (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta]))/4))/(1.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(-1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Cos[theta]*Sin[phi]^2*Sin[theta] - 
                5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5) + ((21*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]^2*Sin[4*theta]))/
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*((21*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (9*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                  ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                    (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                    (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                    (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 - (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 0.25*
                       (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*Sin[theta]^
                2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^2))/
              (2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Cos[phi]*Sin[phi]^2*Sin[theta]^2*(
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[2*theta] + 
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/2))/(-2 + 5.*^-13*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - (1.9999999999999998*^-18*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-3.75*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^3 + 
                0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 (-18*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                   Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(8*Cos[theta]*Sin[phi]^2*Sin[theta]^
                       3 + Cos[phi]^2*Sin[2*theta]^3))/4) + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5)*(6 - 2*Cos[2*phi] + Cos[
                      2*(phi - theta)] + 2*Cos[2*theta] + Cos[2*(phi + 
                        theta)])*Sin[theta]^2*(1 + 0.000012*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Cos[theta]*Sin[theta]) - (((-21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + 
                      Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                       2*(phi + theta)])*Sin[theta]^2*(2 + 0.000012*
                       (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                       Cos[theta]*Sin[theta]))/4 - 4.*^-6*
                    ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                    (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                      Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                       4*theta])))/4 + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(6 - 2*Cos[2*phi] + Cos[2*(phi - 
                        theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)])*
                    Sin[theta]^2)/4 - 12*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^2) + 
                  1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])) + (-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (-4*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   ((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(2*Cos[theta]^3*
                        Sin[phi]^2*Sin[theta] - Cos[phi]^2*Cos[2*theta]^2*
                        Sin[2*theta] - Sin[phi]^2*Sin[4*theta]))/2 + 
                    3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5)*(2*Cos[phi]^2*Cos[2*theta]^2*
                       Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))))/
              (-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2) + 
           5.*^-7*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[phi]*Cos[2*theta]*(5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[phi]^2*Cos[4*theta] + Cos[2*theta]*Sin[phi]^2) - 
                2*Cos[phi]*Sin[2*theta]))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
             (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Cos[
                2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                 Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (5.*^-13*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 - 
             (1.5*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*Cos[phi]*Sin[2*theta]*(1.*^-12*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                   (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)/2)^2*Sin[phi]^2*Sin[theta]^2 - 
                (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta]))*(2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]*(-Cos[theta] + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*(Cos[theta] - 
                    3*Cos[3*theta]) - 2*Sin[theta]*(1 + 1.5*^-6*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                     Sin[theta])) + 4*Cos[phi]*Cos[2*theta]*(1 - 
                  1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Sin[2*theta] + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-1 + 5.*^-7*(1.3125/(E^(4.*r^2)*
                        r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                2.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                4*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Cos[2*theta]*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) - 
                1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta] - 
                  2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   (2 + 3*Cos[2*theta])*Sin[theta] - 6*(0.1875/(E^(4.*r^2)*
                      r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                     r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(Cos[theta] + 2.5*^-7*
                     (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                        (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                      (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*(Sin[theta] - 
                      3*Sin[3*theta])) + 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Sin[theta] - 
                    3*Sin[3*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2 + 
             (6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*Sin[
                2*theta]*(9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                6.25*^-8*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                   Sin[4*theta]) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(Cos[phi]*Cos[2*theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta]))))/(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                  Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
               (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                  Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                    (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[phi]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) + 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[phi]^2*Sin[theta]^2*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - 
             (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                Csc[theta]^2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[2*theta]))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 + 
               5.3999999999999996*^-17*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
               6.25*^-14*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 
               1.875*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 5.*^-7*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta]) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*Sin[2*theta]^
                   2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                   2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                    Sin[2*phi]*Sin[4*theta]))) - (3.9999999999999995*^-18*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*Sin[phi]^2*Sin[theta]*(
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Sin[theta]^2)*(-0.000054*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 - ((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                  (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                    Sin[4*theta]))/8 - 18*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Cos[theta]*Sin[phi]^2*
                   Sin[theta] - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) + Cos[phi]^2*
                   Sin[4*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-1.25*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                       (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                    2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) + 
                  Sin[phi]^2*Sin[2*theta] + 2*Cos[phi]^2*Sin[4*theta]) + 
                (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                    (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) + 
                     4*Cos[4*theta]*Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                     (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - 
                          theta)] + 2*Cos[2*theta] + Cos[2*(phi + theta)]) + 
                      2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                       (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                        17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                        5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                        9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))/
                 8))/(-2 + 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) - 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))^2)) + 
         r^2*(1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
          (-1/2*(1.*^-6*(-1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Cos[2*theta] + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]^2)/2) + 2.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (Cos[theta] + Cos[3*theta]) - 3*((-3*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[theta]*
                   (1 + 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] - 
                    5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[theta]*(1 + 3.*^-6*(0.1875/
                        (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/2) - 1.*^-6*
                 (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2)*Sin[phi]^2*Sin[theta]*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                Cos[phi]*(1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]^2 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[2*theta]*
                   (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta]) + (((-21*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Sin[2*theta]*(1 + 3.*^-6*
                      (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta]))/4) - (3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                   Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
                1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + (-2 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta]))) - 1.*^-6*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*(
                1.*^-6*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r + 6*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) + 
                    ((-105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 + (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 + (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 - 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                          (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*((1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2 + 
                  1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                       r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                      r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                  3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta])) + (-2 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
                   Sin[phi]^2 - (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])/4 - 
                  7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                   Sin[2*theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(6*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[2*theta]^2) + 1.*^-6*(-1.3125/(E^(4.*r^2)*r^4) - 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                      (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                      (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                      (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Sin[phi]^2*
                 Sin[theta]^2*(2.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[2*theta]*Cot[theta] + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                    1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Cos[theta]*Sin[theta] - 0.000012*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) + 
                  (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                     (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/2) - 
                6.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) - 6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) + 
                (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2 + (r*((105*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                     (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                     (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + 0.25*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2)) + (16.*(0. - 8.*r))/
                        E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r) - (128.*r)/E^(4.*r^2) + 
                       0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                         (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2)))/r))/4)*Cos[phi]*Sin[2*theta]*
                 (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   Cos[theta]^2*Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                        r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                       r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                   (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                          (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                         r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                        (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                         r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                        (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                     Cos[phi]*Sin[2*theta])) - 6.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]*(-1.*^-6*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2)*Cos[theta]*
                   Sin[phi]^2*Sin[theta] - 5.*^-7*(3*((-3*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    ((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^4 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                      (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/4)*Cos[phi]^2*
                   Sin[4*theta])))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))^2) + 
           (5.*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Sin[2*theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] + 2.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*(3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]*(-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
                 Sin[phi]^2*Sin[theta]^3 + (((-21*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 
                   Cos[phi]^2*Sin[2*theta]^3))/4) + Cos[phi]*(-4.*^-6*
                 ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[2*theta]^2 - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[2*theta] + 1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 (2*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[theta]*Sin[theta]^3 + 
                  3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                   Sin[4*theta])) - 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]^2*
                 Sin[theta]^2 + (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(4*Sin[phi]^2*Sin[theta]^2 + Cos[phi]^2*
                    Sin[2*theta]^2))/2 + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta])) + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(12*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Sin[phi]^2*Sin[theta]^2*(-1 + 1.*^-6*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - ((-21*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2*Sin[phi]^2*Sin[theta]^2 + 
                  2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                         (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (4*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]))))/(r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))*
             (8 - 2.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 4.3199999999999997*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 1.5*^-12*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 7.2*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              4.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) + (6.25*^-14*Csc[theta]*
             (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             (0.000072*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]^2 + Cot[theta])*Sin[phi]^2 - 
              ((-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Csc[theta]^2*
                (4 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta] - 1.*^-6*r*(-6.5625/(E^(4.*r^2)*
                     r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Cos[theta]*Sin[theta])*
                (4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                   Cos[2*(phi + theta)])*Sin[2*theta]))/4 + 
              2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*(Cos[theta] + Cos[3*theta])*Csc[theta] + 
                6*Cot[theta]*Sin[phi]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*(12*Cos[theta]^2*Sin[phi]^2 + Cos[phi]^2*
                   Cot[theta]*Sin[4*theta])) - (1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                -(Cos[phi]*(-1 + Cot[theta]^2)) + 0.000021*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cot[theta]*
                 Sin[phi]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*(14*Cos[theta]^2*
                   Sin[phi]^2 + Cos[phi]^2*Cot[theta]*Sin[4*theta])) + 
              8.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                -(Cos[phi]*(Cos[theta] + Cos[3*theta])*Csc[theta]) + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-4*Cos[theta]^2*Sin[phi]^2 + 
                  Cos[2*theta]*Cot[theta]^2*Sin[phi]^2 - Cos[phi]^2*
                   Cot[theta]*Sin[4*theta]) + 3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(2*Cos[theta]^2*Sin[phi]^2 + Cot[theta]*
                   (-(Cos[2*theta]*Cot[theta]*Sin[phi]^2) + Cos[phi]^2*
                     Sin[4*theta])))))/(r*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 1.0799999999999999*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta]) - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 + 1.8*^-11*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (2.5*^-7*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                Cos[2*(phi + theta)])*Sin[2*theta] - 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[2*theta])*
             (-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Sin[2*theta]))*
             ((-5.*^-7*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                   (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                (-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 1.25*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 - 3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta]) + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-2*Cos[theta]^3*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta]) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta])))))/(r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^
                2*Sin[theta]^2 - 1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
              1.25*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 3.75*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - (5.*^-13*Sin[phi]^2*
             Sin[theta]*((((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta] - 
                 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                  Sin[2*theta]^2))/2 - 2.5*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                (-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Cos[theta]*(4*Cos[theta]*Sin[phi]^2*
                 Sin[theta] + Cos[phi]^2*Sin[4*theta]) + 1.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]*(2*Cos[phi]*Cos[2*theta] + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(4*Cos[theta]*Sin[phi]^2*Sin[theta] + 
                  Cos[phi]^2*Sin[4*theta]) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*
                   Sin[4*theta])) + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(2*Sin[theta]*(-1 + 2.5*^-7*
                   (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])))*
             (-((Csc[theta]*(-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta] + 2.5*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*
                 (1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                   Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/
                (1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                  Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                   5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                     (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Sin[phi]^2*Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                    Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                    Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*
                        r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r))/r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    Cos[phi]^2*Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/
                        (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                      Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                       (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) - 
              ((-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4 + 6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + r*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                     (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                     (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^5) + (6.5625/(E^(4.*r^2)*r^5) + 
                     (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^4 - (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                     (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                     (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2))/r)/2))*(1.*^-12*(-0.375/(E^(4.*r^2)*
                      r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                    (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                 (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                    Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(4 - 1.*^-12*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Sin[phi]^2*Sin[theta]^2 - 2.1599999999999998*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2*Sin[theta]^3 - 2.5*^-13*
               (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*Cos[phi]^2*Sin[2*theta]^2 - 7.5*^-13*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 
                5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]) + 
              3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*Sin[2*theta]^2 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(8*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + Cos[phi]^2*Sin[2*theta]^3)) + 
              2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                   Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*(-4*Cos[theta]*Sin[phi]^2*
                   Sin[theta]^3 + 2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + 
                  Sin[phi]^2*Sin[4*theta])))) - 
           (2.5*^-7*(1.*^-12*(-1.3125/(E^(4.*r^2)*r^4) - 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4 + 
                6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                  (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)/2))*Sin[phi]^2*Sin[theta]^2*(
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta] - 0.000018*(0.1875/(E^(4.*r^2)*
                     r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*Sin[theta] + 
                3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                  1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta])) - 6.*^-12*(0.1875/(E^(4.*r^2)*
                  r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*(-1.*^-6*
                 (3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[theta]*
                 Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])) + (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*Sin[theta] + 
                2.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Cos[phi]*Sin[2*theta])*(1.*^-12*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
                 Sin[phi]^2 - (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                 (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])))*((1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                Cos[2*theta]*(-1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                     (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                     (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                  Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]*Cos[2*theta]*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[phi]*
                Sin[2*theta]*(1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)^2*
                  Sin[phi]^2*Sin[theta]^2 - (1 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                       r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                     (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])*
                  (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/
                        r^3 - (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                       (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                       (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*
                    Cos[phi]*Sin[2*theta])))/(1.*^-12*(-0.375/(E^(4.*r^2)*
                     r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                   (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*Cos[theta]*Sin[phi]^2*
                 (Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (1.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]*
                Sin[phi]^2*Sin[theta]*(3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta] - Cot[theta] + 
                 5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2))/(-1 + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta])))))/
            (r*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
               Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 5.*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Sin[theta]^3) - 
              1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                (-1.3125/(E^(4.*r^2)*r^4) - (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 - (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r + 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*Sin[theta]*(
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[theta]*
                 (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
              (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                 Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Cos[2*theta]^2 + (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])))) + 
           (6.25*^-14*Csc[theta]*Sin[phi]*((-1.*^-6*
                ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Cos[phi]*
                Cos[2*theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) - 
              (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*Cot[theta]*(-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))/(
                1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]*
                 Sin[phi]^2*(Cos[theta] - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Cos[2*theta]*Sin[theta] - 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Sin[theta]^3) - 1.*^-12*(3*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 - (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*Sin[phi]^2*
                 Sin[theta]*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*Cos[theta]*
                   Cos[2*theta] - (3*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/2)*
                   Sin[theta]*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta])) + 
                (1 - 1.*^-6*(3*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                        (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4) + (-1.3125/(E^(4.*r^2)*r^4) - 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 - 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r + (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4)*Cos[phi]*
                   Sin[2*theta])*(1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]^2*Cos[2*theta]^2 + 
                  (-1 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                         (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     Sin[2*theta])*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                      (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))) + 
              (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                (3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[2*theta] - Cot[theta] + 5.*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Sin[theta]^2)*Sin[2*theta])/(-1 + 2.5*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 + 5.3999999999999996*^-17*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 1.875*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) + 6.25*^-14*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(Sin[phi]^2*Sin[theta]^2 + 
                  Cos[phi]^2*Sin[2*theta]^2 - 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) - 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                   (-4*Cos[phi]*Cos[theta]^3*Sin[phi]^2*Sin[theta] + 
                    2*Cos[phi]^3*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]*
                     Sin[2*phi]*Sin[4*theta]))))*
             (2.16*^-10*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]^2*Sin[
                phi]*(Sin[2*theta] + Sin[4*theta]) - 0.000036*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(
                -(Cos[2*theta]*Sin[2*phi]) + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[phi]*(4*Sin[2*theta] + 5*Sin[4*theta]) + 1.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                 (Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta])) + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-8*Cot[theta]*
                 Sin[phi] - 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 4*Cos[2*theta])*Sin[2*phi] + 
                2.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (Cos[theta] + Cos[3*theta])*Csc[theta]*(Sin[phi] - 
                  Sin[3*phi]) + 2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[phi]*(2*Sin[2*theta] + 3*Sin[4*theta]) + 2.*^-6*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*Cos[2*theta]*Sin[2*phi] - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                      r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                    (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^5)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + 5.*^-7*r*(-6.5625/(E^(4.*r^2)*
                      r^5) - (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[phi]*(Sin[phi]^2*Sin[2*theta] + 
                    Cos[phi]^2*Sin[4*theta]) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (8.*^-6*Sin[phi]^3*Sin[2*theta] + 6.*^-6*Cos[phi]^2*
                      Sin[phi]*Sin[4*theta]))/4)) + 
              2*(1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                  r*(3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                      (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                    (6.5625/(E^(4.*r^2)*r^5) + (48*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 - (13*(-1./E^(4.*r^2) + 
                         0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (3*(0. + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 - 
                      (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)/2))*Cos[2*theta]*
                 Sin[2*phi] + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 ((Cos[theta]^2 + Cos[2*theta])*Sin[2*phi] - 1.*^-6*
                   (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[phi]*
                   (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                     Sin[4*theta])) + ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (4*Cot[theta]*Sin[phi] + 5.*^-13*(-0.375/(E^(4.*r^2)*r^4) - 
                      (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                      (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                          E^(4.*r^2)))/r^4)^2*(2 - 2*Cos[2*phi] + 
                     5*Cos[2*(phi - theta)] - 2*Cos[2*theta] + 
                     5*Cos[2*(phi + theta)])*Cot[theta]*Sin[phi] + 
                   1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                    (-4*Cos[2*theta]*Sin[2*phi] + 3.*^-6*r*(-0.9375/
                        (E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]) - 5.*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                       (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                        r^4 + (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*
                          r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                       (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                       (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) + 0.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[phi]*
                      (4*Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                        Sin[4*theta]))))/4)))/(r*(-Csc[theta]^3 + 
              1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^
                2*Cos[2*theta]^2*Csc[theta]^3 + 5.3999999999999996*^-17*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*Cos[
                theta]*Sin[phi]^2 + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cot[theta]^
                2*Csc[theta]*Sin[phi]^2 + 4.999999999999999*^-19*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
               (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*(
                Cos[phi]^2*Cos[2*theta]^2*Cot[theta]*Csc[theta] + 
                Cos[theta]*(-2 + Cot[theta]^2)*Sin[phi]^2) + 
              2.5*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2) + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(4*Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*
                 Sin[phi]^2 - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]*Cos[theta]*
                 (Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2)) + 
              6.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[theta]*(Cos[phi]^2*Cos[theta]^2 + Sin[phi]^2) - 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]*
                 Cos[2*theta]*Cot[theta]*Csc[theta]*(Cos[phi]^2*
                   Cos[2*theta] + Sin[phi]^2) - ((1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (Cos[phi]^2*Cos[theta]*Cot[theta] + Csc[theta]*Sin[phi]^2))/
                 2))) + (2.5*^-7*(-2.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4))*Cos[phi]*Cos[
                2*theta]*(4*Cos[phi]*Cos[2*theta] + 2.5*^-7*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] - 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(2 - 5.*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) + (5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[2*theta]*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)]) - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*Cos[2*theta]*(1 - Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)]) - 8*Cos[phi]*
                 Sin[2*theta] - 2.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Cos[phi]^2*Sin[2*theta]^2 + 
                0.000024*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]^2*
                 Sin[2*theta]^2)*(-6.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(2 - 
                5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[phi]^2*
                 Sin[theta]^2 - 1.0799999999999999*^-16*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^3*Cos[phi]*
                 Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 3.75*^-13*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                  2*Cos[2*theta] + Cos[2*(phi + theta)])*Sin[theta]^2*
                 (-2 + 1.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                 Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - 
                  Cos[phi]^2*Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*
                      r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                       0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                     r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                    (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                     Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                 (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                  3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                     Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                    (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                     Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[
                      4*theta]))) + 2.5*^-13*(-4*Cos[phi]*Cos[2*theta] - 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(2 - 2*Cos[2*phi] + 
                  Cos[2*(phi - theta)] + 2*Cos[2*theta] + Cos[
                   2*(phi + theta)])*Sin[2*theta] + 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 - Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                  Cos[2*(phi + theta)])*Sin[2*theta])*(-6.*^-6*
                 ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                 Cos[theta]*Sin[theta] + ((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*Cos[phi]*Sin[2*theta]))*(
                -0.000432*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^3*Cos[phi]*(1 + 2*Cos[2*theta])*
                 Sin[phi]^2*Sin[theta]^2 + 72*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)^2*(-(Sin[phi]^2*Sin[2*theta]) + 
                  5.*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                    (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                   (4*(1 + 2*Cos[2*theta])*Sin[phi]^2*Sin[theta]^2 + 
                    3*Cos[phi]^2*Cos[2*theta]*Sin[2*theta]^2) - 2*Cos[phi]^2*
                   Sin[4*theta]) - 4*(((1.3125/(E^(4.*r^2)*r^4) + 
                      (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                    (2*Sin[phi]^2*Sin[2*theta] + Cos[phi]^2*Sin[4*theta]))/
                   4 + (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                     (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                   (2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*
                          (0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                      (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                      (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                         E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                     (Cos[phi]^2*(Cos[2*theta] + 3*Cos[6*theta]) - 
                      2*(Cos[2*theta] - 3*Cos[4*theta])*Sin[phi]^2) - 
                    4*(Cos[theta]*Sin[phi]^2*Sin[theta] + Cos[phi]^2*
                       Sin[4*theta]))) + 3*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(4.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                     (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                     (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^4)^2*Cos[phi]*(Cos[phi]^2*
                     (Cos[2*theta] + 3*Cos[6*theta]) + 4*Cos[4*theta]*
                     Sin[phi]^2) + ((1.3125/(E^(4.*r^2)*r^4) + 
                     (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]*
                    (16*Cos[theta]*(2 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 
                       2*Cos[2*theta] + Cos[2*(phi + theta)]) + 2.5*^-7*
                      (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                          E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                         (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                          (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                      (9*Sin[phi - 5*theta] + 3*Sin[3*phi - 5*theta] + 
                       17*Sin[phi - 3*theta] - 5*Sin[3*(phi - theta)] + 
                       5*Sin[3*(phi + theta)] - 17*Sin[phi + 3*theta] - 
                       9*Sin[phi + 5*theta] - 3*Sin[3*phi + 5*theta])))/4))))/
            (r*(2 - 5.*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)^2*Sin[phi]^2*Sin[theta]^2 - 
               1.0799999999999999*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^3*Cos[phi]*Cos[theta]*Sin[phi]^2*Sin[theta]^3 - 
               3.75*^-13*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (6 - 2*Cos[2*phi] + Cos[2*(phi - theta)] + 2*Cos[2*theta] + 
                 Cos[2*(phi + theta)])*Sin[theta]^2*(-2 + 1.*^-6*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  Cos[theta]*Sin[theta]) - 1.25*^-13*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[phi]^2*
                Sin[2*theta]^2 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(-(Sin[phi]^2*Sin[theta]^2) - Cos[phi]^2*
                  Sin[2*theta]^2 + 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (8*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + Cos[phi]^2*
                    Sin[2*theta]^3)) + 1.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (-2*(Cos[phi]^2*Cos[2*theta]^2 + Cos[theta]^2*Sin[phi]^2) + 
                 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (2*Cos[phi]^2*Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*
                    Sin[4*theta]) - 2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[phi]*
                  (-4*Cos[theta]*Sin[phi]^2*Sin[theta]^3 + 2*Cos[phi]^2*
                    Cos[2*theta]^2*Sin[2*theta] + Sin[phi]^2*Sin[4*theta])))^
              2)))/(Sqrt[2]*r))/2)/(Sqrt[2]*r))/2
